home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0295.lzh / AMOSLIST / text0012.txt < prev    next >
Encoding:
Text File  |  1995-03-01  |  3.7 KB  |  114 lines
  1. > > And a general question about coding:
  2. > > 
  3. > > What is a good procedure for detecting a "tap" of a fire button and a 
  4. > > "press" (button held down)? - Carl Chavez
  5. > > 
  6.  
  7. > 
  8. > PROCEDURE TESTHOLDBUTTON[STICK]
  9. >    Shared LAST_TIME,START_TIME
  10. > 
  11. >    If Fire(STICK) 
  12. >       If LAST_TIME
  13. >      'Button is still held from previous call
  14. >         Pop Proc[-1]
  15. >       Else
  16. >      If START_TIME=0
  17. >         'Beginning of a new press
  18. >         START_TIME=Timer
  19. >         Pop Proc[0]
  20. >      Else
  21. >         'Button pressed in a previous call, but
  22. >         'timeout for a tap has not expired yet
  23. >         If Timer-STARTTIME<2000
  24. >            'Cant decide which it is yet
  25. >            Pop Proc[0]
  26. >         Else
  27. >            'Decided it is a press
  28. >         LAST_TIME=True
  29. >         Pop Proc[-1]
  30. >         End If
  31. >      End If
  32. >       End If
  33. >    Else
  34. >       'Button not pressed.
  35. >       If LAST_TIME
  36. >      'Just released from a press.
  37. >      LAST_TIME=False
  38. >      START_TIME=0
  39. >      Pop Proc[0]
  40. >       Else
  41. >      If START_TIME
  42. >         'Was a tap
  43. >         START_TIME=0
  44. >         Pop Proc[1]
  45. >      Else
  46. >         'Button Never Pressed at all.
  47. >         Pop Proc[0]
  48. >      End If
  49. >       End If
  50. >    End If
  51. > End Proc
  52. >     
  53. > This returns:
  54. > 
  55. >     0 = Nothing as happend / the fire button is pressed, but not
  56. >         enough time has passed to tell if it is a tap or press
  57. >     1 = A tap has occured
  58. >     -1 = A press has occured.
  59. > 
  60. > It also has that advantage that it doesn't wait in the procedure for
  61. > 2000 50ths of a second, but exits immediately.As long as you call it
  62. > regularly, there won't be a problem, but if you leave it too long
  63. > between calls it might think taps are presses.
  64. > 
  65. > Note - I haven't tested this - I don't have an amiga handy.
  66. > 
  67. > - PAUL HICKMAN
  68.  
  69. I tried out this routine last night and with some small modifications it worked.
  70. The logic was spot on, just some syntax and spelling problems.
  71.  
  72. I couldn't get the "pop proc[1]" type statement working nor could I find
  73. reference to using pop proc in this manner. Please enlighten me if this 
  74. is possible.  I simply used:
  75.  
  76. ; button declared as global
  77.       button=1      
  78.       pop proc
  79.  
  80. I think I had problems with the START_TIME variable name as it clashed with a 
  81. reserved word so I just used BEGIN_TIME.
  82.  
  83. Where Paul used "If START_TIME" I used "If BEGIN_TIME<>0".
  84. Are these If's testing the same thing? (notwithstanding my change of variable name)
  85.  
  86. I would also like to test for the joystick being held or pressed to the left or right
  87. or just tapped as well as the button being tested in this manner. Later I will probably
  88. want to do the same for up and down!
  89.  
  90. Q1. Should I incorporate all of this in the one procedure which checks every feature of
  91.     the joystick in one test of the joy(1) function or should I write seperate procedures.
  92.  
  93. Q2. I am just playing around with writing a program to move a car (bob that is) around on 
  94.      the screen eventually with the ability to make 15 degree turns in an overhead perspective.
  95.      The controls would be something like : press and hold fire button to accelerate
  96.      press left to turn anticlockwise by 15 degrees and right to turn clockwise 15 deg.
  97.  
  98.      The car is moving around the screen but is a little (well, a lot) erratic and the feel
  99.      is just not there.
  100.       
  101.      Has anybody out there written a car racing game that would give me some clues or code
  102.      or logic for handling the "mechanics" of steering a car around.
  103.  
  104.  Q3. I seem to recall the Skidmarks game documentation referring to using BSpline quadratics
  105.      for the movement of the cars around corners. Does anybody know anything about that?
  106.      I seem to recall that they even supplied some of the assembler code they used. Yes I
  107.      know it was written in Blitz Basic but they also used calls to assembler code. 
  108.  
  109. Thanks ,
  110. Max Monahan
  111. M.Monahan@bom.gov.au
  112.       
  113.  
  114.